(skeleton-internal-1): Always push the mark for @.

diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 9274c3ca8c94b704e42854c88af51169ad774e8e..0733f06526289c4c4c780c6a928a119024439b33 100644 (file)
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -451,9 +451,8 @@ automatically, and you are prompted to fill in the variable parts.")))
         (or skeleton-modified
             (setq skeleton (cdr skeleton))))
        ((eq element '@)
-        (if skeleton-point
-            (push (point) skeleton-positions)
-          (setq skeleton-point (point))))
+        (push (point) skeleton-positions)
+        (unless skeleton-point (setq skeleton-point (point))))
        ((eq 'quote (car-safe element))
         (eval (nth 1 element)))
        ((or (stringp (car-safe element))